COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		REAL I,II,III,IV
C00006 ENDMK
C⊗;
	REAL I,II,III,IV
	DIMENSION NM(4,18),I(18),II(12,18),III(18),IV(3,18)
	1,GRADE(18),XI(18),XII(18),XIII(18),XIV(18)
	DATA NM/
	1'ASH,REUEL           ','COHEN,ANDY          ',
	1'DAMON,RICHARD       ','DYRUD,BETH          ',
	1'GAVER,ELIZ.         ','GRANT,SUSAN         ',
	1'HALBERT,ALLAN       ','LEE,VIVIANNE        ',
	1'MILLER,ROBERT       ','OSBORNE,KIM         ',
	1'PERLOFF,NANCY       ','RAIN,BARBARA        ',
	1'SETRAKIAN,MARY      ','SAWHILL,BRUCE       ',
	1'SIMS,JANET          ','TOGASHI,SANDRA      ',
	1'WASSERMAN,NATALIE   ','WEISZ,MARGIE        '/
	CALL IFILE(1,'GRDS')
30	FORMAT(' TYPE NAME  '$)
C32	TYPE 30
32	READ(1,44)K
C	ACCEPT 44,K
	IF(K.EQ.'X')GO TO 33
	DO 31 N=1,18
31	IF(K.EQ.NM(1,N))GO TO 1
	GO TO 32
1	TYPE 2,(NM(K,N),K=1,4)
2	FORMAT(1X,4A5)
44	FORMAT(A5)
3	FORMAT(' QUESTION 1'/)
6	FORMAT(' QUESTION 2'/)
C	TYPE 3
	READ(1,4)RI
C	ACCEPT 4,RI
	I(N)=RI
	RI=RI/22*15
	XI(N)=RI
C5	TYPE 6
	READ(1,4)(II(K,N),K=1,12)
C	ACCEPT 4,(II(K,N),K=1,12)
	RII=0
	DO 7  K=1,12
	IF(II(K,N).NE.0)GO TO 7
	TYPE 8
C	GO TO 5
8	FORMAT(' **** MISSING INPUT ****'/)
7	RII=RII+II(K,N)
	RII=RII/120*25
	XII(N)=RII
C	TYPE 9
9	FORMAT(' QUESTION 3'/)
4	FORMAT(20F)
	READ(1,4)RIII   
C	ACCEPT 4,RIII   
	III(N)=RIII
	RIII=RIII*3
	XIII(N)=RIII
C11	TYPE 10
10	FORMAT(' QUESTION 4'/)
	READ(1,4)(IV(K,N),K=1,3)
C	ACCEPT 4,(IV(K,N),K=1,3)
	RIV=0
	DO 12 K=1,3 
	IF(IV(K,N).NE.0)GO TO 12
	TYPE 8
C	GO TO 11
12	RIV=RIV+IV(K,N)
	XIV(N)=RIV
	GRADE(N)=RI+RII+RIII+RIV
	GO TO 32

22	FORMAT(' GRADE=',F5.2,/' I=',F5.2,'   II=',F5.2,
	1'   III=',F5.2,'   IV=',F5.2/)
33	CALL OFILE(1,'GRADE')
	R=0
	DO 25 K=1,18
25	R=R+GRADE(K)
	R=R/18
	TYPE 24,R
	WRITE(1,24)R
24	FORMAT(/' AVERAGE=',F5.2/)
	DO 23 K=1,18
	TYPE 2,(NM(N,K),N=1,4)
	WRITE(1,2),(NM(N,K),N=1,4)
	TYPE 22,GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
	WRITE(1,22)GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
	WRITE(1,27)I(K),(II(N,K),N=1,12),III(K),(IV(N,K),N=1,3)
23	CONTINUE
27	FORMAT(F7.2,/12F7.2,/F7.2,/3F7.2//)
	END